unit Td_Filbaltype_List;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDataListForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter,
  cxDataStorage, DB, cxDBData, Menus, DBActns,
  StdActns, ActnList, ImgList, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  cxLabel, ExtCtrls, MisString, cxCheckBox, StdCtrls,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxGridCustomPopupMenu,
  dxSkinsForm, cxNavigator,
  System.Actions, cxCustomData, cxFilter, cxData, cxGridPopupMenu, MemDS,
  DBAccess, Uni, System.ImageList, cxGridLevel, cxButtons;

type
  TfrmTd_Filbaltype_List = class(TfrmBaseDataListForm)
    code: TcxGridDBColumn;
    Stypename: TcxGridDBColumn;
    Fsubjectid: TcxGridDBColumn;
    corrsubjectid: TcxGridDBColumn;
    pause: TcxGridDBColumn;
    defaultbill: TcxGridDBColumn;
    ffilnm: TcxGridDBColumn;
    corrfilnm: TcxGridDBColumn;
    MainDataSetUid: TIntegerField;
    MainDataSetUcode: TStringField;
    MainDataSetUStypename: TStringField;
    MainDataSetUFfilid: TIntegerField;
    MainDataSetUFsubjectid: TIntegerField;
    MainDataSetUcorrfilid: TIntegerField;
    MainDataSetUcorrsubjectid: TIntegerField;
    MainDataSetUAllot: TBooleanField;
    MainDataSetUbank: TBooleanField;
    MainDataSetUGathering: TBooleanField;
    MainDataSetUPayment: TBooleanField;
    MainDataSetUCancel: TBooleanField;
    MainDataSetUpause: TBooleanField;
    MainDataSetUdefbill: TStringField;
    MainDataSetUffilnm: TStringField;
    MainDataSetUcorrfilnm: TStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

  protected
    procedure SetUniqueTable; override;
    function AppendRecord: Boolean; override;
    function EditRecord: Boolean; override;
  public
    { Public declarations }
  end;

var
  frmTd_Filbaltype_List: TfrmTd_Filbaltype_List;

implementation

uses Td_Filbaltype_Edit;

{$R *.dfm}

procedure TfrmTd_Filbaltype_List.SetUniqueTable;
begin
//  MainDataSet.Properties['unique table'].Value := 'td_filbaltype';
end;

procedure TfrmTd_Filbaltype_List.FormCreate(Sender: TObject);
begin
  FKeyField := 'id';
  FCodeField := 'code';
  FTableName := 'v_td_filbaltype';
  inherited;

end;

function TfrmTd_Filbaltype_List.AppendRecord: Boolean;
begin
  ShowEditForm(frmTd_Filbaltype_Edit, TfrmTd_Filbaltype_Edit, et_New);
  Result := True;
end;

function TfrmTd_Filbaltype_List.EditRecord: Boolean;
begin
  ShowEditForm(frmTd_Filbaltype_Edit, TfrmTd_Filbaltype_Edit, et_Modify);
  Result := True;
end;

end.

